home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8502b.d64 / listing 7 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  43 lines
  1. 10 VZ=2:VE$(1)="N":VE$(2)="NW"
  2. 50000 REM ****************************
  3. 50010 REM *     BEFEHLSEINGABE       *
  4. 50020 REM *     BEFEHLSZERLEGUNG     *
  5. 50030 REM *     BEFEHLSCODIERUNG     *
  6. 50040 REM ****************************
  7. 50050 IFUD=1THEN50220
  8. 50060 POKE198,0:BE$="":PRINT"WAS NUN ? ";
  9. 50070 POKE204,0
  10. 50080 GETX$:IFX$=""THEN50080
  11. 50090 IFPEEK(203)=1ORLEN(BE$)>68THENPRINT" ":POKE204,1:GOTO50140
  12. 50100 I=ASC(X$):IFI<65ORI>90THENIFI<>32ANDI<>20ANDI<>34THEN50080
  13. 50110 IFI=20ANDBE$=""THEN50080
  14. 50120 IFI=20THENPOKE204,1:PRINT"[157]  [157][157]";:BE$=LEFT$(BE$,LEN(BE$)-1):GOTO50070
  15. 50130 PRINTX$;:BE$=BE$+X$:GOTO50080
  16. 50140 FORI=1TO10:BE$(I)="":NEXT:WZ=1:FORI=1TOLEN(BE$)
  17. 50150 :IFMID$(BE$,I,1)=" "THENGOSUB50190:GOTO50180
  18. 50160 :IFWZ>10THENPRINT"EINGABE IST ZU LANG !":I=LEN(BE$)+1:GOTO50180
  19. 50170 :BE$(WZ)=BE$(WZ)+MID$(BE$,I,1)
  20. 50180 NEXTI:GOTO50220
  21. 50190 IC=0:FORI1=1TOAZ:IFBE$(WZ)=AU$(I1)THENIC=1
  22. 50200 NEXTI1:IFIC=0THENWZ=WZ+1:RETURN
  23. 50210 BE$(WZ)="":RETURN
  24. 50220 IFUD=1THENUD=0:GOTO50240
  25. 50230 WZ=1:VE=0:OB=0:PE=0
  26. 50240 IC=0:G1=0:G2=0
  27. 50250 FORI=1TOVZ:IFBE$(WZ)=VE$(I)THENVE=I:IC=1
  28. 50251 IFLEN(BE$(WZ))<3THEN50260
  29. 50255 IFBE$(WZ)=LEFT$(VE$(I),LEN(BE$(WZ)))THENVE=I-VAL(RIGHT$(VE$(I),1)):IC=1
  30. 50260 NEXTI:IFIC=1THEN50350
  31. 50270 FORI=1TOGZ:IFBE$(WZ)<>GE$(I)THEN50300
  32. 50280 IC=1:IFG1=0THENG1=I
  33. 50290 G2=I:IFG2=G1THENG2=0
  34. 50300 NEXTI:IFIC=1THEN50350
  35. 50310 FORI=1TOOZ:IFBE$(WZ)=OB$(I)THENOB=I:IC=1
  36. 50320 NEXTI:IFIC=1THEN50350
  37. 50330 FORI=1TOPZ:IFBE$(WZ)=PE$(I)THENPE=I:IC=1
  38. 50340 NEXTI
  39. 50350 IFBE$(WZ)="UND"THENUD=1:IC=1
  40. 50360 IFIC=0THENPRINT"ICH KENNE ";BE$(WZ);" NICHT !":RETURN
  41. 50370 WZ=WZ+1:IFWZ>10ORBE$(WZ)=""ORUD=1THENRETURN
  42. 50380 IC=0:GOTO50250
  43.